package Stdlog::Levels;

use 5.008;
use strict;
use warnings;
use Exporter;

# use constant {
#    DEBUG  => 1,
#    INFO   => 2,
#    NOTICE => 4,
#    ERROR  => 8,
#    FATAL  => 16,
#};

our @ISA = qw/Exporter/;

our @EXPORT_OK = qw(%levels @sorted_lvls);

our %levels = (
    DEBUG  => 1,
    INFO   => 2,
    NOTICE => 4,
    ERROR  => 8,
    FATAL  => 16
);

our @sorted_lvls = sort {$levels{$a} <=> $levels{$b}} keys %levels;
our @level_names = qw/DEBUG INFO NOTICE ERROR FATAL/;

1;
__END__

=head1 NAME

Stdlog::Levels -- globals and constants used by Stdlog modules

=head1 SYNOPSIS

Don't use this directly.
  

=head1 DESCRIPTION


=head1 EXPORTS

None by default.


=head1 SEE ALSO


=head1 AUTHOR

Robert Mah E<lt>rmah@pobox.comE<gt>


=head1 COPYRIGHT AND LICENSE

Copyright (C) 2007 by Robert Mah

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.

=cut
